
(defun ESOPER (OP)
	(COND
		((equal OP '+) T)
		((equal OP '-) T)
		((equal OP '*) T)
		((equal OP '/) T)
		((equal OP '<) T)
        ((equal OP '>) T)
        ((equal OP '==) T)
        ((equal OP '<=) T)
        ((equal OP '>=) T)
        ((equal OP '&&) T)
        ;((eql OP '||) T) ; "error: zero length name" es un caracter de escape de X-lisp...
		(T NIL)
	)
)

(defun traducirOp (OP)
    (cond
        ((equal OP '&&) 'and)
        ((equal OP '==) 'eq) ; eq or equal? http://stackoverflow.com/questions/547436/whats-the-difference-between-eq-eql-equal-and-equalp-in-lisp
        ;((equal OP '||) 'or) ; "error: zero length name" es un caracter de escape de X-lisp...
        (T OP)
    )
)
